COVID

Cumulative Bar

The cumulative chart shows accumulation of both COVID-19 cases and Shooting cases in NYC county from 2020-03-01 until 2021-09-30. In order to make the plot more readable, We divided the COVID-19 cumulative cases by 1000 due to its rapid growth rate compared to shooting cases. The bar chart shows a potential peak shifting fluctuation, instead of co-frequency resonance, which may be due to the delayed effect of Covid-19 on society. Therefore, we go deeper into the relationship between the accumulation of shooting cases and COVID cases.

plot_ly(shooting_covid, x = ~date, y = ~covid_cum_per1000 , type = "bar", alpha = 1, name = "COVID cases(/1000)") %>% 
  add_trace(shooting_covid, x = ~date, y = ~shooting_cum, type = "bar", alpha = 0.6, name = "Shooting case") %>% 
  layout(
    title = "Cumulative bar for Covid and Shooting",
    barmode = "overlap",
    xaxis = list(title = "date"),
    yaxis = list(title = "cumulative scale")) %>% 
  layout(showlegend = TRUE, legend = list(font = list(size = 8)))

Linear relation between accumulations

The linear plot clearly shows a steep rise in shooting cases when COVID-19 case accumulated to 200,000 around 2020-05-15 in NYC. The growth rate becomes slower for nearly half a year from around 2020-11-15, and then increases again since 2021-05, but not as rapid as in 2020. Combined with the month and shooting cases analysis before, increase in shooting case during May is common, but especially high growth rate during the begining of epidemic is unusual. What’s more, it is noteworthy that the spread of Delta virus also begins in the end of April, 2021.

shooting_covid %>% 
  mutate(text_label = str_c("date: ", date)) %>% 
  plot_ly(x = ~covid_cum_per1000, y = ~shooting_cum,type = 'scatter', mode = 'lines', text = ~text_label, alpha = 0.8, colors = "viridis") %>% 
  layout(
    title = "Linear Relationship between Accumulations ",
    xaxis = list(title = "Cumulative covid cases/1000"),
    yaxis = list(title = "Cumulative shooting cases"))